home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / dos / communic / pcmail / main / ndir.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-06-05  |  2.0 KB  |  199 lines
  1. /* This source was taken from the rn program by Larry Wall */
  2.  
  3.  
  4.  
  5. #ifdef USENDIR
  6.  
  7. #include <sys/types.h>
  8.  
  9. #include "ndir.h"
  10.  
  11.  
  12.  
  13. /*
  14.  
  15.  * support for Berkeley directory reading routine on a V7 file system
  16.  
  17.  */
  18.  
  19.  
  20.  
  21. /*
  22.  
  23.  * open a directory.
  24.  
  25.  */
  26.  
  27. DIR *
  28.  
  29. opendir(name)
  30.  
  31. char *name;
  32.  
  33. {
  34.  
  35.     register DIR *dirp;
  36.  
  37.     register int fd;
  38.  
  39.     char *malloc();
  40.  
  41.  
  42.  
  43.     if ((fd = open(name, 0)) == -1)
  44.  
  45.         return NULL;
  46.  
  47.     if ((dirp = (DIR *)malloc(sizeof(DIR))) == NULL) {
  48.  
  49.         close (fd);
  50.  
  51.         return NULL;
  52.  
  53.     }
  54.  
  55.     dirp->dd_fd = fd;
  56.  
  57.     dirp->dd_loc = 0;
  58.  
  59.     return dirp;
  60.  
  61. }
  62.  
  63.  
  64.  
  65. /*
  66.  
  67.  * read an old style directory entry and present it as a new one
  68.  
  69.  */
  70.  
  71. #ifndef pyr
  72.  
  73. #define    ODIRSIZ    14
  74.  
  75.  
  76.  
  77. struct    olddirect {
  78.  
  79.     ino_t    od_ino;
  80.  
  81.     char    od_name[ODIRSIZ];
  82.  
  83. };
  84.  
  85. #else    an Pyramid in the ATT universe
  86.  
  87. #define    ODIRSIZ    248
  88.  
  89.  
  90.  
  91. struct    olddirect {
  92.  
  93.     long    od_ino;
  94.  
  95.     short    od_fill1, od_fill2;
  96.  
  97.     char    od_name[ODIRSIZ];
  98.  
  99. };
  100.  
  101. #endif
  102.  
  103.  
  104.  
  105. /*
  106.  
  107.  * get next entry in a directory.
  108.  
  109.  */
  110.  
  111. struct direct *
  112.  
  113. readdir(dirp)
  114.  
  115. register DIR *dirp;
  116.  
  117. {
  118.  
  119.     register struct olddirect *dp;
  120.  
  121.     static struct direct dir;
  122.  
  123.  
  124.  
  125.     for (;;) {
  126.  
  127.         if (dirp->dd_loc == 0) {
  128.  
  129.             dirp->dd_size = read(dirp->dd_fd, dirp->dd_buf,
  130.  
  131.                 DIRBLKSIZ);
  132.  
  133.             if (dirp->dd_size <= 0)
  134.  
  135.                 return NULL;
  136.  
  137.         }
  138.  
  139.         if (dirp->dd_loc >= dirp->dd_size) {
  140.  
  141.             dirp->dd_loc = 0;
  142.  
  143.             continue;
  144.  
  145.         }
  146.  
  147.         dp = (struct olddirect *)(dirp->dd_buf + dirp->dd_loc);
  148.  
  149.         dirp->dd_loc += sizeof(struct olddirect);
  150.  
  151.         if (dp->od_ino == 0)
  152.  
  153.             continue;
  154.  
  155.         dir.d_ino = dp->od_ino;
  156.  
  157.         strncpy(dir.d_name, dp->od_name, ODIRSIZ);
  158.  
  159.         dir.d_name[ODIRSIZ] = '\0'; /* insure null termination */
  160.  
  161.         dir.d_namlen = strlen(dir.d_name);
  162.  
  163.         dir.d_reclen = DIRSIZ(&dir);
  164.  
  165.         return (&dir);
  166.  
  167.     }
  168.  
  169. }
  170.  
  171.  
  172.  
  173. /*
  174.  
  175.  * close a directory.
  176.  
  177.  */
  178.  
  179. void
  180.  
  181. closedir(dirp)
  182.  
  183. register DIR *dirp;
  184.  
  185. {
  186.  
  187.     close(dirp->dd_fd);
  188.  
  189.     dirp->dd_fd = -1;
  190.  
  191.     dirp->dd_loc = 0;
  192.  
  193.     free(dirp);
  194.  
  195. }
  196.  
  197. #endif USENDIR
  198.  
  199.